home *** CD-ROM | disk | FTP | other *** search
/ PC Online 2000 October / Pc Online Ekim 2000.iso / prog / flash / setup.exe / data1.cab / Samples / Sample_Pages / Objects / save.asp < prev   
Encoding:
Text File  |  1999-06-15  |  230 b   |  15 lines
  1. <% 
  2.  
  3. state = Request.form("state")
  4.  
  5. Application.Lock
  6. id = Application("objectid") + 1
  7. Application("objectid") = id
  8. Application("objectstate") = state
  9. Application.Unlock
  10.  
  11. response.write("id=") 
  12. response.write(id)
  13.  
  14. %>
  15.